home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / SWDOS12 / REDIR.ASM < prev    next >
Assembly Source File  |  1994-11-30  |  842b  |  29 lines

  1. ;******************************************************************
  2. ;*                            REDIR.ASM                           *
  3. ;*          Source file for SoftWeyr enhanced DOS toolbox         *
  4. ;*                           version 1.0                          *
  5. ;*                 Copyright (c) by SoftWeyr,1994                 *
  6. ;******************************************************************
  7. True EQU 1
  8. False EQU 0
  9. MODEL TPascal
  10. LOCALS
  11. .CODE
  12. Public Redirected
  13. Redirected Proc Far F:DWord
  14. ;Function Redirected(var F:Text):Boolean;
  15.     LES     DI,F
  16.         MOV     BX,ES:[DI]
  17.         MOV     AX,4400H
  18.         INT     21H
  19.         TEST    DX,0080H
  20.         JZ      @@1
  21.         TEST    DX,0003H
  22.         JZ      @@1
  23.         MOV     AL,False
  24.         JMP     @@2
  25. @@1:    MOV     AL,True
  26. @@2:    RET
  27.     endp
  28. end
  29.